home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue43 / delay / DynLinkTest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-01-27  |  601 b   |  27 lines
  1. unit DynLinkTest;
  2.  
  3. interface
  4.  
  5. uses
  6.   HVDll;
  7.  
  8. var
  9.   Routine1 : procedure (A, B, C, D: integer); register;
  10.   Routine2 : procedure (A, B, C, D: integer); pascal;
  11.   Routine3 : procedure (A, B, C, D: integer); cdecl;
  12.   Routine4 : procedure (A, B, C, D: integer); stdcall;
  13.   TestDll  : TDll;
  14.  
  15. implementation
  16.  
  17. var
  18.   Entries : array[1..4] of HVDll.TEntry =
  19.     ((Proc: @@Routine1; Name: 'Routine1'),
  20.      (Proc: @@Routine2; Name: 'Routine2'),
  21.      (Proc: @@Routine3; ID  : 3),
  22.      (Proc: @@Routine4; ID  : 4));
  23.  
  24. initialization
  25.   TestDll := TDll.Create('Testdll.dll', Entries);
  26. end.
  27.